home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 November / Ahoy_Magazine_87-11_1987_Double_L.d64 / Perm Parity (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  329b  |  10 lines
  1. 1 rem ==================================
  2. 2 rem    commodares problem #43-2 :
  3. 3 print" [208]erm [208]arity"
  4. 4 rem    solution by
  5. 5 rem     david hoffner
  6. 6 rem ==================================
  7. 7 rint"[197]nter one digit at a time "
  8. 10 forq=1to5:inputb(q):a(b(q))=q:next:forn=1to4:j=a(n):k=b(n):ifn<>jthent=1-t
  9. 20 a(k)=j:b(j)=k:next:print mid$("evenodd",1+t*4,4)
  10.